.script
; dteut.wsc - Down To Earth utility scripts. (Windows)
;======================================================================= 
; Copyright 1999 by TAH Software Systems (TAH), Oklahoma City, Oklahoma  
;
;       TAH provides this software under a license and may only be       
;       used in accordance with the terms and conditions of such         
;       license and with the inclusion of the above Copyright notice.    
;======================================================================= 
; Changes:
; 10/18/2010 - change Oper Login to skip .dll file for 64-bit systems
;
;
; Main menu columns
;======================================================================= 
.column acctg, "Accounting"
.entry dte_gl, "General Ledger", select(g), disable
.entry dte_cc, "Cost Center", select(c), disable
.entry dte_ar, "Accounts Receivable", select(a), disable
.entry dte_ap, "Accounts Payable", select(a), disable
.entry dte_pr, "Payroll", select(p), disable
.end
;.entry dte_fa, "Fixed Assets", select(f), disable
;
.column invent, "Inventory Control"
.entry dte_in, "Inventory", select(i), disable
.entry dte_po, "Purchase Order", select(p), disable
.entry dte_bm, "Bill of Materials", select(b), disable
.end
;.entry dte_sf, "Shop Floor", select(s), disable
;
.column sales, "Sales"
.entry dte_oe, "Sales Order", select(o), disable
.entry dte_sa, "Sales Analysis", select(s), disable
.entry dte_qs, "Quotes/Estimates", select(q), disable
.end
;.entry dte_ft, "Freight", select(f), disable
;.entry dte_qs, "Quotes/Estimates", select(q), disable
;.entry dte_ra, "Return Authorizations", select(r), disable
;
.column misc, "Miscellaneous"
.entry dte_na, "Name/Address", select(n), disable
.entry dte_ds, "Document Storage", select(d), disable
.entry dte_cm, "Contact Management", select(c), disable
.entry dte_sm, "System Manager", select(s)
.end
;
;=============================================================== 
; Other menu columns
;=============================================================== 
.column debug, "Debug", select(d)
.entry fil,     "Files"
.entry wnd,     "Windows"
.entry stk,     "Stack"
.entry end,     "End"
.end
;
.column gen, "General"
.entry end,             "Exit", key(esc)
.entry go,              "Go", key(f12)
.entry i_done,          "Fill defaults", key(next)
.entry delete,          "Delete entry", key(del), disable
.entry insert,          "Insert entry", key(ins), disable
.line
.entry s_find,          "Find", key(^F)
.entry s_findnext,      "Find Next", key(^N)
.entry s_finddir,       "Reverse", key(^D)
.end
;
.column helpmnt, "Help Text", select(h)
.entry edit, "Edit text"
.entry size, "Placement/size"
.entry save, "Store window"
.entry quit, "Quit"
.end
;
.column i_inqy, "i_inqy"
.entry i_na26,  "Name/Addresses"
.entry i_ap23,  "Accounts Payable"
.entry i_ar22,  "Accounts Receivable"
.entry i_in26,  "Inventory Item"
.entry i_in27,  "Item Special Pricing"
.entry i_in28,  "Item Kits"
.entry i_oe26,  "Sales Orders"
.entry i_oe27,  "Sales Order Status"
.entry i_oe21,  "Sales Order Invoice History"
.entry i_oe22,  "Sales Order Customer History"
.entry i_oe23,  "Sales Order Item History"
.entry i_ft26,  "Sales Order Shipment Tracking"
.entry i_po26,  "Purchase Orders"
.entry i_po27,  "Purchase Order Status"
.entry i_bm26,  "Bill of Materials Assembly"
.entry i_qs26,  "Quotes"
.entry i_qs27,  "Quote Status"
.entry i_ds50,  "Document Storage"
.end
;
.column print, "Print Option"
.entry prtr,    "Printer"
.entry scrn,    "Screen"
.entry queu,    "Queue"
.entry file,    "Text file"
.entry end,     "Abort"
.end
;
.column rec, "Records"
.entry frst,            "First record", key(f1)
.entry prev,            "Prior record", key(f2)
.entry next,            "Next record", key(f3)
.entry last,            "Last record", key(f4)
.entry find,            "Locate record", key(f5)
.entry add,             "Add record", key(f6)
.entry edit,            "Edit record", key(f7)
.entry updt,            "Update record", key(f8)
.entry canc,            "Cancel process", key(f9)
.entry del,             "Delete record", key(f10)
.end
;
.column rptview, "View"
.entry t_scrlft,        "Shift left 10 columns", key(s_lft)
.entry t_scrrt,         "Shift right 10 columns", key(s_rt)
.entry t_lside,         "Beginning of line", key(Left)
.entry t_rside,         "End of line", key(Right)
.entry top,             "First page", key(s_pgu)
.entry prev,            "Previous page", key(Prev)
.entry next,            "Next page", key(Next)
.entry bottom,          "Last page", key(s_pgd)
.end
;
.column systems, "System"
.entry dte_gl,  "General Ledger"
.entry dte_cc,  "Cost Center"
.entry dte_ar,  "Accounts Receivable"
.entry dte_ap,  "Accounts Payable"
.entry dte_pr,  "Payroll"
.entry dte_in,  "Inventory"
.entry dte_po,  "Purchase Order"
.entry dte_bm,  "Bill of Materials"
.entry dte_oe,  "Order Entry"
.entry dte_sa,  "Sales Analysis"
.entry dte_qs,  "Quotes/Estimates"
.entry dte_rw,  "Report Writer"
.entry end,     "Return to system", key(ESC)
.end
;
;=============================================================== 
; Codes maintenance columns
;=============================================================== 
.column m_scod, "m_code"
.entry m_scd1, "Sales", sub
.entry m_scd2, "Item", sub
.entry m_scd3, "Purchasing", sub
.entry m_scd4, "Other", sub
.end
;
.column m_scd1, "Sales"
.entry m_codf, "Finance Charge",        select("F")
.entry m_codo, "Folder Type [Calls]",   select("O")
.entry m_codn, "Geographic Area",       select("N")
.entry m_codq, "Group [Names]",         select("Q")
.entry m_codj, "Literature",            select("J")
.entry m_codz, "Mail",                  select("Z")
.entry m_codp, "Product",               select("P")
.entry m_cod8, "Project",               select("8")
.entry m_cods, "Sales Representative",  select("S")
.entry m_codx, "Sales Tax",             select("X")
.entry m_codv, "Ship Via",              select("V")
.entry m_cody, "Terms [Payable]",       select("Y")
.entry m_codt, "Terms [Receivable]",    select("T")
.entry m_codr, "Territory",             select("R")
.end
;
.column m_scd2, "Item"
.entry m_codg, "Catalog",               select("G")
.entry m_codc, "Category",              select("C")
.entry m_codm, "Commission",            select("M")
.entry m_codl, "Location",              select("L")
.entry m_codu, "Unit of Measure",       select("U")
.entry m_codw, "Warranty",              select("W")
.end
;
.column m_scd3, "Purchasing"
.entry m_codb, "Buyer",                 select("B")
.entry m_codk, "Rejection",             select("R")
.entry m_codh, "Receiving address",     select("A")
.end
;
.column m_scd4, "Other"
.entry m_codi, "Activity Status",       select("I")
.entry m_codd, "Cost Center Type",      select("D")
.entry m_code, "Cost Center Category",  select("E")
.entry m_coda, "Sales Analysis",        select("A")
.entry m_cod9, "Fixed Asset GL",        select("9")
.end
;
;=============================================================== 
; Codes report columns
;=============================================================== 
.column r_scod, "r_code"
.entry r_scd1, "Sales", sub
.entry r_scd2, "Item", sub
.entry r_scd3, "Purchasing", sub
.entry r_scd4, "Other", sub
.end
;
.column r_scd1, "Sales"
.entry r_codf, "Finance Charge",        select("F")
.entry r_codo, "Folder Type [Calls]",   select("O")
.entry r_codn, "Geographic Area",       select("N")
.entry r_codq, "Group [Names]",         select("Q")
.entry r_codj, "Literature",            select("J")
.entry r_codz, "Mail",                  select("Z")
.entry r_codp, "Product",               select("P")
.entry r_cod8, "Project",               select("8")
.entry r_cods, "Sales Representative",  select("S")
.entry r_codx, "Sales Tax",             select("X")
.entry r_codv, "Ship Via",              select("V")
.entry r_cody, "Terms [Payable]",       select("Y")
.entry r_codt, "Terms [Receivable]",    select("T")
.entry r_codr, "Territory",             select("R")
.end
;
.column r_scd2, "Item"
.entry r_codg, "Catalog",               select("G")
.entry r_codc, "Category",              select("C")
.entry r_codm, "Commission",            select("M")
.entry r_codl, "Location",              select("L")
.entry r_codu, "Unit of Measure",       select("U")
.entry r_codw, "Warranty",              select("W")
.end
;
.column r_scd3, "Purchasing"
.entry r_codb, "Buyer",                 select("B")
.entry r_codk, "Rejection",             select("R")
.entry r_codh, "Receiving address",     select("A")
.end
;
.column r_scd4, "Other"
.entry r_codi, "Activity Status",       select("I")
.entry r_codd, "Cost Center Type",      select("D")
.entry r_code, "Cost Center Category",  select("E")
.entry r_coda, "Sales Analysis",        select("A")
.entry r_cod9, "Fixed Asset GL",        select("9")
.end
;
;=============================================================== 
; Input windows
;=============================================================== 
.input abort, 1, 25
.placement 16, 45
.paint _

.field abort, a1, pos(1,1), prompt("Option"), fpos(1,20), -
 help(UTABORTC), select(0,3,,"Continue","Abort")
.end
;
;=============================================================== 
.input askpr, 1, 26
.placement 10, 9

.field prntno, a2, help(UTPRINTR), pos(1, 2), prompt('Select printer ')

.end
;
;=============================================================== 
.input dtewait, 1, 1
.placement 1, 80

.field go, a1, fpos(1,1), help(UTWAITC)

.end
;
;=============================================================== 
.input faxto, 7, 44
.placement 14, 12
.title ' Fax To Information ', highlight
.paint _

.field comp, a30, pos(1,1), prompt("Company"), fpos(1,14), -
 help(UTFXCONAME)

.field attn, a30, pos(2,1), prompt("Attention"), fpos(2,14), -
 help(UTFXATTN)

.field faxnum, a20, pos(3,1), prompt("Fax number"), fpos(3,14), -
 help(UTFXPHONE), required

.field cover, a1, pos(4,1), prompt("Cover sheet"), fpos(4,14), -
 help(UTFXCOVER), selwnd(0,3,yesno)

.field from, a30, pos(5,1), prompt("From"), fpos(5,14), -
 help(UTFXFROM)

.field subject, a30, pos(6,1), prompt("Subject"), fpos(6,14), -
 help(UTFXSUBJ)

.field note, a30, pos(7,1), prompt("Note"), fpos(7,14), -
 help(UTFXNOTE)

.structure rec1, comp,attn,faxnum,cover,subject,note
.set set1, rec1, comp,attn,faxnum,cover,subject,note

.end
;
;=============================================================== 
.input helpsize, 3, 18
.placement 1, 1
.paint _

.field ncols, d2, pos(1,1), prompt("New cols"), fpos(1,15), -
 format('XX'), range(1,70)

.field nprow, d2, pos(2,1), prompt("New place row"), fpos(2,15), -
 format('XX'), range(1,24)

.field npcol, d2, pos(3,1), prompt("New place col"), fpos(3,15), -
 format('XX'), range(1,80)

.structure rec1, ncols,nprow,npcol
.set set1,rec1, ncols,nprow,npcol
.end
;
;=============================================================== 
.input i_labbrev, 1, 52
.placement 12, 30
.field l_head, a1, user("Abbrev    Text")
.title " Abbreviations "
.field l_abbrev, a8, pos(1,1)
.field l_text, a40, pos(1,11)
.structure rec1, l_abbrev,l_text
.set set1, rec1, l_abbrev,l_text
.end
;
;=============================================================== 
.input i_lsmcode, 1, 31
.placement 10, 75
.field l_head, a1, user("COD  Description")
.title " Codes "
.field l_code, a3, pos(1,1)
.field l_desc, a25, pos(1,6)
.structure rec1, <1>,l_code,l_desc
.set set1, rec1, l_code,l_desc
.end
;
.listclass l_find, items(8), headers(1), load_method("LIST_LOAD")
.end
;
;=============================================================== 
.listclass l_prtque, items(8), headers(1), load_method("SMLL_PRTQUE")
.end
;
.input i_lprtque, 1, 74
.placement 11, 10
.field l_head, a1, -
 user("Report Description                 Name       Date      Time    Co  Usr")
.title " Queued Reports "
.field l_desc, a30, pos(1,1)
.field l_file, a6, pos(1,34), format("[@@@@@@]")
.field l_date, d8, date, pos(1,43)
.field l_time, d4, time(ampm), pos(1,55)
.field l_comp, a2, pos(1,65)
.field l_user, a3, pos(1,69)
.structure rec1, l_file,l_desc,<3>,l_comp,<9>,l_user,l_date,l_time
.set set1, rec1, l_desc,l_file,l_date,l_time,l_comp,l_user
.end
;
;=============================================================== 
.input i_lsmprnt, 1, 38
.placement 10, 40
.field l_head, a1, user("No   Description")
.title " Printers "
.field l_pno, d2, pos(1,1)
.field l_desc, a30, pos(1,6)
.structure rec1, l_pno,<30>,l_desc
.set set1, rec1, l_pno,l_desc
.end
;
.listclass l_smprnt, items(8), headers(1), load_method("SMLL_SMPRNT")
.end
;
;=============================================================== 
.input i_lutnote, 1, 75
.placement 10, 10
.field l_head, a1, user("    Date      Time    Subject")
.title " Notes "
.field l_date, d8, date, pos(1,1)
.field l_time, d4, time(ampm), pos(1,13)
.field l_subject, a8, pos(1,23)
.field l_note1, a40, pos(1,33)
.structure rec1, <14>,l_date,l_time,<2>,l_subject,l_note1
.set set1, rec1, l_date,l_time,l_subject, l_note1
.end
; 
;=============================================================== 
.input listfind, 4, 60
.placement 10, 12
.title ' List Find ', highlight
.paint _

.field findstrng, a40, pos(1,1), prompt("Search for"), fpos(1,12)

.field finddir, i4, pos(2,1), prompt("Direction"), fpos(2,12), -
 enum(8,0,1), sel(1,2,,Forward,Backward)

.field findcase, i4, pos(3,1), prompt("Case"), fpos(3,12), -
 enum(11,0,1), sel(1,2,,Sensitive,Insensitive)

.field findtype, i4, pos(4,1), prompt("Pattern"), fpos(4,12), -
 enum(8,0,1), sel(1,2,,Contains,Pattern)

.structure find, finddir, findcase, findtype, <12>, findstrng
.set set1, find, findstrng, finddir, findcase, findtype
.end
;
;=============================================================== 
.input lpcustom, 16, 72
.placement 1, 15
.title ' Custom Reports ', highlight
.paint _

.field prog, d2, pos(1,1), prompt ("Program No"), fpos(1,12), -
 help(UTCUSTOM), range(1,28)

.field prog_01, a30, pos(3,1), prompt (" 1:"), fpos(3,4)
.field prog_02, a30, pos(4,1), prompt (" 2:"), fpos(4,4)
.field prog_03, a30, pos(5,1), prompt (" 3:"), fpos(5,4)
.field prog_04, a30, pos(6,1), prompt (" 4:"), fpos(6,4)
.field prog_05, a30, pos(7,1), prompt (" 5:"), fpos(7,4)
.field prog_06, a30, pos(8,1), prompt (" 6:"), fpos(8,4)
.field prog_07, a30, pos(9,1), prompt (" 7:"), fpos(9,4)
.field prog_08, a30, pos(10,1), prompt (" 8:"), fpos(10,4)
.field prog_09, a30, pos(11,1), prompt (" 9:"), fpos(11,4)
.field prog_10, a30, pos(12,1), prompt ("10:"), fpos(12,4)
.field prog_11, a30, pos(13,1), prompt ("11:"), fpos(13,4)
.field prog_12, a30, pos(14,1), prompt ("12:"), fpos(14,4)
.field prog_13, a30, pos(15,1), prompt ("13:"), fpos(15,4)
.field prog_14, a30, pos(16,1), prompt ("14:"), fpos(16,4)

.field prog_15, a30, pos(3,38), prompt ("15:"), fpos(3,41)
.field prog_16, a30, pos(4,38), prompt ("16:"), fpos(4,41)
.field prog_17, a30, pos(5,38), prompt ("17:"), fpos(5,41)
.field prog_18, a30, pos(6,38), prompt ("18:"), fpos(6,41)
.field prog_19, a30, pos(7,38), prompt ("19:"), fpos(7,41)
.field prog_20, a30, pos(8,38), prompt ("20:"), fpos(8,41)
.field prog_21, a30, pos(9,38), prompt ("21:"), fpos(9,41)
.field prog_22, a30, pos(10,38), prompt ("22:"), fpos(10,41)
.field prog_23, a30, pos(11,38), prompt ("23:"), fpos(11,41)
.field prog_24, a30, pos(12,38), prompt ("24:"), fpos(12,41)
.field prog_25, a30, pos(13,38), prompt ("25:"), fpos(13,41)
.field prog_26, a30, pos(14,38), prompt ("26:"), fpos(14,41)
.field prog_27, a30, pos(15,38), prompt ("27:"), fpos(15,41)
.field prog_28, a30, pos(16,38), prompt ("28:"), fpos(16,41)

.structure rec1, prog
.set set1, rec1, prog
.structure rec2, prog_01,prog_02,prog_03,prog_04,prog_05,prog_06, -
	prog_07,prog_08,prog_09,prog_10,prog_11,prog_12,prog_13,prog_14, -
	prog_15,prog_16,prog_17,prog_18,prog_19,prog_20,prog_21,prog_22, -
	prog_23,prog_24,prog_25,prog_26,prog_27,prog_28
.set set2, rec2, prog_01,prog_02,prog_03,prog_04,prog_05,prog_06, -
	prog_07,prog_08,prog_09,prog_10,prog_11,prog_12,prog_13,prog_14, -
	prog_15,prog_16,prog_17,prog_18,prog_19,prog_20,prog_21,prog_22, -
	prog_23,prog_24,prog_25,prog_26,prog_27,prog_28
.end
;
;=============================================================== 
.input lpque, 6, 48
.placement 3, 23
.title ' Print Queued Report ', highlight
.paint _

.field fil_desc, a30, pos(1,1), prompt("File"), fpos(1,9), paint(" ")
.text Text1, pos(1,41)
[      ]
.field fil_file, a6, fpos(1,42), paint(" ")

.field copies, d2, pos(2,1), prompt("Copies"), fpos(2,9), -
 help(UTCOPIES), format("ZX"), default(1)

.field delete, a1, pos(3,1), prompt("Delete"), fpos(3,9), -
 help(UTDELPRT), selwnd(1,3,noyes)

.field rename, a1, pos(4,1), prompt("Rename"), fpos(4,9), -
 help(UTDELREN), selwnd(1,3,noyes), break

.field newname, a20, pos(5,1), prompt("To"), fpos(5,9), -
 help(UTNEWNAM)

.structure rec1, copies,delete,rename,newname
.set set1, rec1, copies,delete,rename,newname
.end
;
;=============================================================== 
.input menu, 11, 76
.placement 5, 10
.title ' Operator Login ', highlight
.paint ' '

.field oper, a12, pos(2,42), prompt("Operator"), fpos(2,57), -
 help(UTOPERAT), uc

.field comp, a2, pos(3,42), prompt("Company code"), fpos(3,57), -
 help(UTCOMPNY), required

.field pass, a8, pos(4,42), prompt("Password"), fpos(4,57), -
 help(UTPASSWD), noecho(*), uc, hyperlink_method("password_change"), -
 info("Click on prompt to change password.")

.text Text1, pos(7,39)
Down To Earth Business Software v7.0
.text Text2, pos(8,48)
SynergyDE v9.3.1b
.text Text3, pos(9,40)
Copyright 2011 by Datavision, Inc.
.text Text5, pos(10,47)
All rights reserved.
.end
;
;=============================================================== 
.input newpasswd, 3, 40
.placement 16, 20
.title ' Change Password ', highlight
.paint ' '

.field old_passwd, a8, pos(1,1), prompt("Enter old password"), fpos(1,30), -
 help(UTPASSWD), noecho(*), uc

.field new_passwd, a8, pos(2,1), prompt("Enter new password"), fpos(2,30), -
 help(UTPASSWD), noecho(*), uc

.field cfrm_passwd, a8, pos(3,1), prompt("Confirm new password"), fpos(3,30), -
 help(UTPASSWD), noecho(*), uc

.end
;
;=============================================================== 
.input passwd, 1, 40
.placement 16, 20
.paint ' '

.field passwd, a6, pos(1,1), prompt("Please enter the password"), fpos(1,30), -
 help(UTPASSWD), noecho(*), uc

.end
;
;=============================================================== 
.input rwprnt, 2, 24
.placement 1, 1
.title ' Report Name ', highlight
.paint _

.field syscod, a2, pos(1,1), prompt("Application code"), fpos(1,18), -
 help(RWRPTSYS)

.field reptname, a6, pos(2,1), prompt("Report name"), fpos(2,18), -
 help(RWPRNTNAM), required, uc

.structure rec1, syscod,reptname
.set set1, rec1, reptname
.end
;
;=============================================================== 
.input swcomp, 2, 20
.placement 4, 2
.title ' Switch Company ', highlight
.paint ' '

.field comp, a2, pos(2,1), prompt("Company code"), fpos(2,16), -
 help(UTCOMPNY), required

.structure rec1, comp
.set set1, rec1, comp
.end
;
;=============================================================== 
.input utinst, 6, 70
.placement 1, 1
.title ' Installation Maintenance ', highlight
.paint _

.field smname, a50, pos(1,1), prompt("Name"), fpos(1,15), -
 help(SMCONAME)

.field smexpir, d8, pos(2,1), prompt("Demo expires"), fpos(2,15), -
 help(SMDEMOEX), date

.field smappl1, a40, pos(3,1), prompt("Applications"), fpos(3,15), -
 help(UTAPPLIC)
.field smappl2, a40, fpos(4,15), help(UTAPPLIC)

.field smsplash, a3, pos(5,1), prompt ("Splash"), fpos(5,15), -
 help(UTSPLASH), select(1,3,,"No","Yes")

.field smfversion, a7, pos(6,1), prompt ("File Version"), fpos(6,15), -
 help(UTFVERSION)

.structure sminst, smname,smexpir,smappl1,smappl2,smsplash,smfversion
.set set1,sminst,  smname,smexpir,smappl1,smappl2,smsplash,smfversion
.end
;
;=============================================================== 
.input utnotes, 5, 56
.placement 3, 5
.title ' Note ', highlight
.line Line1, 5, pos(1,16), vertical
.paint _
 
.field ncomp, a2, pos(1,1), prompt("Comp"), fpos(1,6)
 
.field nsrce, a2, pos(2,1), prompt("Srce"), fpos(2,6)
 
.field nid, a10, pos(3,1), prompt("ID"), fpos(3,6)
 
.field ndate, d8, pos(4,1), prompt("Date"), fpos(4,6), date(short)
 
.field ntime, d4, pos(5,1), prompt("Time"), fpos(5,6), time(ampm)
 
.field nsubject, a8, pos(1,17), prompt("Subject"), fpos(1,26), -
 help(UTFXSUBJECT), uc
 
.field nnote, 4a40, fpos(2,17), help(UTFXNOTE)
 
.structure rec1, ncomp,nsrce,nid,ndate,ntime,<2>,nsubject,nnote
.set set1, rec1, nsubject,nnote
.set set9, rec1, ncomp,nsrce,nid,ndate,ntime
 
.end
;
;=============================================================== 
; Display windows
;=============================================================== 
.window u_message, 5, 78
.border reverse
.place 20, 1
.text Text1
\-w\r
; 39 blanks
;                                  
; 39 blanks
;                                  
.end
;
;=============================================================== 
.window logo, 24, 80
.placement 1, 1

.box Box1, 6, 28, pos(1,43), noreverse
.text Text1, pos(2,50)
Down To Earth
.text Text2, pos(3,48)
Business  Systems
.text Text3, pos(4,49)
Version 7.0.001
.text Text4, pos(5,49)
Copyright  1993,2000

.box Box2, 6, 43, pos(17,36), noreverse
.text Text5, pos(18,38)
Datavision, Inc.
.text Text6, pos(19,47)
11170 Sun Center Drive
.text Text7, pos(20,41)
Rancho Cordova, California  95670
.text Text8, pos(21,48)
DBL S/N: xxxxxxxxxx

\r
; Beginning of baloon
.text Text9, pos(1,11)
.text Text10, pos(2,7)
.text Text11, pos(2,20)
.text Text12, pos(3,5)
.text Text13, pos(3,21)
.text Text14, pos(4,4)
.text Text15, pos(4,22)
.text Text16, pos(5,3)
.text Text17, pos(5,9)
.text Text18, pos(5,14)
.text Text19, pos(5,22)
.text Text20, pos(5,27)
.text Text21, pos(6,2)
.text Text22, pos(6,7)
.text Text23, pos(6,10)
.text Text24, pos(6,16)
.text Text25, pos(6,22)
.text Text26, pos(6,25)
.text Text27, pos(7,2)
.text Text28, pos(7,7)
.text Text29, pos(7,10)
.text Text30, pos(7,16)
.text Text31, pos(7,21)
.text Text32, pos(7,27)
.text Text33, pos(8,2)
.text Text34, pos(8,7)
.text Text35, pos(8,10)
.text Text36, pos(8,16)
.text Text37, pos(8,21)
.text Text38, pos(8,25)
.text Text39, pos(9,3)
.text Text40, pos(9,9)
.text Text41, pos(9,10)
.text Text42, pos(9,16)
.text Text43, pos(9,21)
.text Text44, pos(9,27)
.text Text45, pos(10,4)
.text Text46, pos(10,21)
.text Text47, pos(11,5)
.text Text48, pos(11,20)
.text Text49, pos(12,6)
.text Text50, pos(12,20)
.text Text51, pos(13,7)
.text Text52, pos(13,20)
.text Text53, pos(14,8)
.text Text54, pos(14,20)
.text Text55, pos(15,9)
.text Text56, pos(15,19)
.text Text57, pos(16,10)
.text Text58, pos(16,19)
.text Text59, pos(17,11)
.text Text60, pos(17,19)
.text Text61, pos(18,12)
.text Text62, pos(18,18)
.text Text63, pos(19,13)
.text Text64, pos(19,18)
.text Text65, pos(21,15)
.text Text66, pos(22,15)
.text Text67, pos(22,18)
; End of baloon
.text Text68, pos(23,15)
; Beginning of DISC
.text Text69, pos(8,40)
.text Text70, pos(8,50)
.text Text71, pos(8,57)
.text Text72, pos(8,67)
.text Text73, pos(9,40)
.text Text74, pos(9,46)
.text Text75, pos(9,51)
.text Text76, pos(9,57)
.text Text77, pos(9,63)
.text Text78, pos(9,67)
.text Text79, pos(9,73)
.text Text80, pos(10,40)
.text Text81, pos(10,46)
.text Text82, pos(10,51)
.text Text83, pos(10,57)
.text Text84, pos(10,67)
.text Text85, pos(11,40)
.text Text86, pos(11,46)
.text Text87, pos(11,51)
.text Text88, pos(11,57)
.text Text89, pos(11,67)
.text Text90, pos(12,40)
.text Text91, pos(12,46)
.text Text92, pos(12,51)
.text Text93, pos(12,57)
.text Text94, pos(12,67)
.text Text95, pos(13,40)
.text Text96, pos(13,46)
.text Text97, pos(13,51)
.text Text98, pos(13,63)
.text Text99, pos(13,67)
.text Text100, pos(14,40)
.text Text101, pos(14,46)
.text Text102, pos(14,51)
.text Text103, pos(14,63)
.text Text104, pos(14,67)
.text Text105, pos(15,40)
.text Text106, pos(15,46)
.text Text107, pos(15,51)
.text Text108, pos(15,57)
.text Text109, pos(15,63)
.text Text110, pos(15,67)
.text Text111, pos(15,73)
.text Text112, pos(16,40)
.text Text113, pos(16,50)
.text Text114, pos(16,57)
; End of DISC
.text Text115, pos(16,67)
.end
;
;=============================================================== 
; Selection windows
;=============================================================== 
.select yesno
.item "Yes"
.item "No"
.end
;
;=============================================================== 
.select noyes
.item "No"
.item "Yes"
.end
;
;=============================================================== 
.select yesquit
.item "Yes"
.item "Next"
.item "Quit"
.end
;
;=============================================================== 
.select numalp
.item "Numeric"
.item "Alphabetic"
.end
;
;=============================================================== 
.select opncls
.item "Open"
.item "Closed"
.end
;
;=============================================================== 
; The following windows are not used in a windows environment,
; but they must exist so the module LODWIN can load them.
;=============================================================== 
.column find_sel, "Select"
.entry s_up,            "Up"
.entry s_down,          "Down"
.entry s_pgup,          "Page up"
.entry s_pgdn,          "Page down"
.entry s_top,           "First"
.entry s_bottom,        "Last"
.entry s_pgtop,         "Top of page"
.entry s_pgbot,         "Bottom of page"
.entry s_left,          "Left"
.entry s_right,         "Right"
.end
;
.column inp, "Input"
.entry end,             "Exit"
.entry go,              "Go"
.entry i_done,          "Fill defaults"
.end
;
.column lstinp, "List-Input"
.entry o_pgup,          "Page up", key(prev)
.entry o_pgdn,          "Page down", key(next)
.entry o_pgtop,         "Top of page", key(s_up)
.entry o_pgbot,         "Bottom of page", key(s_dn)
.line
.entry o_up,            "Prior transaction", key(c_up)
.entry o_down,          "Next transaction", key(c_dn)
.entry o_left,          "Scroll left", key(c_lft)
.entry o_right,         "Scroll right", key(c_rt)
.line
.entry o_insert,        "Insert transaction", key(ins)
.entry o_cancel,        "Cancel entry", key(f4)
.end
;
.column sel, "Select"
.entry s_up,            "Up"
.entry s_down,          "Down"
.entry s_pgdn,          "Next page"
.entry s_pgup,          "Prev page"
.end
;
.column text, "Editing"
.entry e_up,            "Up one line"
.entry e_down,          "Down one line"
.entry e_top,           "First page"
.entry e_bottom,        "Last page"
.entry e_wdel,          "Delete word"
.entry e_edel,          "Delete to end line"
.entry e_ldel,          "Delete line"
.entry e_ilin,          "Insert line"
.line
.entry e_bmov,          "Beginning of line"
.entry e_emov,          "End of line"
.entry e_left,          "Left 1 char"
.entry e_right,         "Right 1 char"
.entry e_wmov,          "Advance word"
.entry e_mode,          "Change mode"
.entry e_dir,           "Change direction"
.entry e_join,          "Join lines"
.end
;
.column view, "View"
.entry t_linup,         "Up one line", key(up)
.entry t_lindwn,        "Down one line", key(down)
.entry t_lside,         "Left side", key(left)
.entry t_rside,         "Right side", key(right)
.entry t_pagup,         "Up one page", key(prev)
.entry t_pagdwn,        "Down one page", key(next)
.entry t_top,           "First page", key(s_pgu)
.entry t_bottom,        "Last page", key(s_pgd)
.end
;
.column wndsel, "Entries"
.entry s_up,            "Up", key(up)
.entry s_down,          "Down", key(down)
.entry s_pgdn,          "Next page", key(next)
.entry s_pgup,          "Prev page", key(prev)
.entry delete,          "Delete entry", key(del)
.end
;
;=============================================================== 
.input confirm, 1, 15
.placement 16, 55
.paint _

.field confirm, a1, pos(1,1), prompt("Confirm ?"), fpos(1,11), -
 help(UTYESNOA), selwnd(0,3,yesno)
.end
;
;=============================================================== 
.input confirm_d, 1, 22
.placement 16, 55
.paint _

.field confirm, a1, pos(1,1), prompt("Confirm deletion ?"), fpos(1,20), -
 help(UTYESNOA), selwnd(0,3,yesno)

.end
;
;=============================================================== 
